home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00103_Script_Game State < prev    next >
Text File  |  1996-03-27  |  2KB  |  114 lines
  1. global gGameFrame, gGameObject, gCurObject, gPuppetList
  2. global gPower
  3.   
  4. -- ïï saveState ïï
  5. on saveState
  6.   gameSave()
  7. end
  8.  
  9. -- ïï restoreState ïï
  10. on restoreState
  11.   gameRestore()
  12. end
  13.  
  14.  
  15. --ïï gameSave ïï
  16. -- save a game to be restored when we return to this movie
  17. on gameSave
  18.   
  19.   
  20.   put "gameSave"
  21.   
  22.   -- save the frame so we can return to it
  23.   set gGameFrame to the frame
  24.   
  25.   -- save the object
  26.   set gGameObject to gCurObject
  27.   
  28.   set gPuppetList to []
  29.   repeat with i = 1 to 35
  30.     add( gPuppetList, the puppet of sprite i)
  31.     if i = 12 then
  32.       add gPuppetList, the locH of sprite i
  33.     else
  34.       add( gPuppetList, the castNum of sprite i)
  35.     end if
  36.     
  37.     if the puppet of sprite i then
  38.       put "gameSave" && the name of cast the castNum of sprite i, the castNum of sprite i, i  
  39.     end if
  40.     
  41.   end repeat
  42.   
  43. end
  44.  
  45. --ïï gameRestore ïï
  46. -- restore a game when we return to this movie
  47. on gameRestore
  48.   
  49.   global gTellGameToRestore
  50.   
  51.   set gTellGameToRestore to TRUE
  52.   
  53.   -- restore the object from our guide jaunt
  54.   if( gGameObject <> 0 ) then set gCurObject to gGameObject
  55.   
  56.   -- and go to the right frame
  57.   if( gGameObject <> 0 ) then go to gGameFrame
  58.   
  59. end
  60.  
  61. --ïï gameRestorePuppets ïï
  62. -- restore a game when we return to this movie
  63. on gameRestorePuppets
  64.   
  65.   global gTellGameToRestore
  66.   
  67.   set gTellGameToRestore to FALSE
  68.   
  69.   if gPuppetList <> 0 then
  70.     set j to 1
  71.     repeat with i = 1 to 35
  72.       
  73.       if( getAt(gPuppetList,j) ) then
  74.         puppetSprite i, TRUE
  75.         if i = 12 then
  76.           set the locH of sprite i to getAt(gPuppetList,j+1)  
  77.         else
  78.           set the castNum of sprite i to getAt(gPuppetList,j+1)
  79.         end if
  80.         
  81.         put "gameRestore", i,  the name of cast getAt(gPuppetList,j+1), getAt(gPuppetList,j+1)
  82.       end if
  83.       
  84.       set j to j + 2
  85.       
  86.     end repeat
  87.   end if
  88.   
  89.   updateStage
  90.   
  91. end
  92.  
  93. --ïï gameReset ïï
  94. -- reset a game
  95. on gameReset
  96.   
  97.   set gGameFrame to 0
  98.   
  99.   repeat with i = 1 to 48
  100.     puppetSprite i, FALSE
  101.   end repeat
  102.   
  103.   setPlanet()
  104.   
  105.   -- save the object
  106.   set gGameObject to gCurObject
  107.   
  108. --  set the visible of sprite 45 to FALSE
  109. --  set the visible of sprite 46 to FALSE
  110.   
  111.   set gPower to 0
  112.   
  113. end
  114.